Option Explicit
Const pictureFolder = "H:\CS20Ruo\zodiac\"
Private Sub cmdCalc_Click()
Dim year As Integer
year = TxtYear.Text
'RAT
If (year - 1972) Mod 12 = 0 Then
   lblSymbol.Caption = "RAT"  'set the caption to RAT
   'load the Chinese characters from a file
   ImgSymbol.Picture = LoadPicture(pictureFolder & "rat.gif")
Else
   lblSymbol.Caption = "" 'erase the caption
   ImgSymbol.Picture = LoadPicture() 'erase the picture
End If

End Sub

Private Sub Form_Load()
ImgSymbol.Picture = LoadPicture()
End Sub

Private Sub Label2_Click()
'This is a detail that I would not expect you to remember!
ShellExecute 0&, vbNullString, "www.new-year.co.uk/chinese/calendar.htm", vbNullString, _
      vbNullString, 1
End Sub

Attribute VB_Name = "Module1"
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
     (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal _
     lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

